inherited fmTrips: TfmTrips
  Width = 900
  Height = 537
  Caption = #1056#1077#1081#1089#1099
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 476
    Width = 892
  end
  inherited Panel1: TPanel
    Top = 431
    Width = 892
    Visible = False
  end
  object tbTop: TToolBar [2]
    Left = 0
    Top = 0
    Width = 892
    Height = 34
    AutoSize = True
    BorderWidth = 2
    Images = DMInv.ilActive
    TabOrder = 2
    Transparent = True
    object tbInsert: TToolButton
      Left = 0
      Top = 2
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100
      ImageIndex = 0
      ParentShowHint = False
      ShowHint = True
    end
    object tbDelete: TToolButton
      Left = 23
      Top = 2
      Hint = #1059#1076#1072#1083#1080#1090#1100
      ImageIndex = 1
      ParentShowHint = False
      ShowHint = True
    end
    object tbEdit: TToolButton
      Left = 46
      Top = 2
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100
      ImageIndex = 2
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton3: TToolButton
      Left = 69
      Top = 2
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object tbRefresh: TToolButton
      Left = 77
      Top = 2
      Caption = #1054#1073#1085#1086#1074#1080#1090#1100' '#1076#1072#1085#1085#1099#1077
      ImageIndex = 8
      ParentShowHint = False
      ShowHint = True
      OnClick = tbRefreshClick
    end
    object ToolButton2: TToolButton
      Left = 100
      Top = 2
      Width = 8
      Caption = 'ToolButton2'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object StaticText1: TStaticText
      Left = 108
      Top = 2
      Width = 62
      Height = 22
      Caption = #1053#1072#1095#1080#1085#1072#1103' '#1089
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
    end
    object edDate: TDateTimePicker
      Left = 170
      Top = 2
      Width = 89
      Height = 22
      Date = 40219.000000000000000000
      Time = 40219.000000000000000000
      TabOrder = 1
      OnCloseUp = edDateCloseUp
    end
    object ToolButton1: TToolButton
      Left = 259
      Top = 2
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object cbActive: TCheckBox
      Left = 267
      Top = 2
      Width = 62
      Height = 22
      Caption = #1042' '#1087#1091#1090#1080
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
    end
    object ToolButton4: TToolButton
      Left = 329
      Top = 2
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object cbFilter: TCheckBox
      Left = 337
      Top = 2
      Width = 76
      Height = 22
      Caption = #1060#1080#1083#1100#1090#1088#1099
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = cbFilterClick
    end
  end
  object dbgClients: TcxGrid [3]
    Left = 0
    Top = 34
    Width = 892
    Height = 397
    Align = alClient
    TabOrder = 3
    LookAndFeel.Kind = lfStandard
    object dbgClientsDBTableView1: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      DataController.DataModeController.GridMode = True
      DataController.DataSource = dlgDS
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.CellHints = True
      OptionsBehavior.ImmediateEditor = False
      OptionsBehavior.IncSearch = True
      OptionsData.Deleting = False
      OptionsData.Inserting = False
      OptionsView.Navigator = True
      OptionsView.NavigatorOffset = 10
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.ColumnAutoWidth = True
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      OptionsView.ShowColumnFilterButtons = sfbAlways
      Preview.Column = dbgClientsDBTableView1TRCOMMENT
      Preview.Visible = True
      Styles.IncSearch = DMInv.cxKrasniyText
      Styles.Selection = DMInv.cxJoltiyFon
      Styles.Header = DMInv.cxSiniyText
      object dbgClientsDBTableView1TRID: TcxGridDBColumn
        DataBinding.FieldName = 'TRID'
        Width = 73
      end
      object dbgClientsDBTableView1OFOFFICE: TcxGridDBColumn
        DataBinding.FieldName = 'OFOFFICE'
        Width = 146
      end
      object dbgClientsDBTableView1TRDATE: TcxGridDBColumn
        DataBinding.FieldName = 'TRDATE'
        Width = 65
      end
      object dbgClientsDBTableView1TRISFINISH: TcxGridDBColumn
        DataBinding.FieldName = 'TRISFINISH'
        PropertiesClassName = 'TcxCheckBoxProperties'
        Properties.ValueChecked = '1'
        Properties.ValueUnchecked = '0'
        Options.Editing = False
        Width = 46
      end
      object dbgClientsDBTableView1TRCOMMENT: TcxGridDBColumn
        DataBinding.FieldName = 'TRCOMMENT'
      end
      object dbgClientsDBTableView1SDSHORT: TcxGridDBColumn
        DataBinding.FieldName = 'SDSHORT'
        Width = 53
      end
      object dbgClientsDBTableView1FDFIO: TcxGridDBColumn
        DataBinding.FieldName = 'FDFIO'
        Width = 476
      end
    end
    object dbgClientsLevel1: TcxGridLevel
      GridView = dbgClientsDBTableView1
    end
  end
  inherited dlgDS: TDataSource
    DataSet = qTrips
    Left = 448
  end
  object qTrips: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    BeforeOpen = qTripsBeforeOpen
    BufferChunks = 1000
    CachedUpdates = True
    SQL.Strings = (
      
        'SELECT T.TRID, T.OFID, T.TRDATE, T.TRISFINISH, T.TRCOMMENT, O.OF' +
        'OFFICE, S.SDSHORT, D.FDFIO'
      '  FROM TRIPS T'
      '  LEFT OUTER JOIN OFFICES O ON (T.OFID = O.OFID)'
      '  LEFT OUTER JOIN SYS_DIC S ON (T.TRTYPE = S.SDID)'
      '  LEFT OUTER JOIN FERDRIVERS D ON (T.FDID = D.FDID)'
      ' WHERE T.TRDATE >= :STARTDATE'
      ' ORDER BY T.TRID DESC')
    UpdateObject = quTrips
    Left = 480
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'STARTDATE'
        ParamType = ptUnknown
      end>
    object qTripsTRID: TIntegerField
      DisplayLabel = #8470' '#1088#1077#1081#1089#1072
      FieldName = 'TRID'
      Origin = '"TRIPS"."TRID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qTripsOFID: TIntegerField
      FieldName = 'OFID'
      Origin = '"TRIPS"."OFID"'
    end
    object qTripsTRDATE: TDateField
      Alignment = taCenter
      DisplayLabel = #1044#1072#1090#1072
      FieldName = 'TRDATE'
      Origin = '"TRIPS"."TRDATE"'
    end
    object qTripsTRISFINISH: TIntegerField
      DisplayLabel = #1054#1050
      FieldName = 'TRISFINISH'
      Origin = '"TRIPS"."TRISFINISH"'
    end
    object qTripsTRCOMMENT: TIBStringField
      DisplayLabel = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
      FieldName = 'TRCOMMENT'
      Origin = '"TRIPS"."TRCOMMENT"'
      Size = 255
    end
    object qTripsSDSHORT: TIBStringField
      Alignment = taCenter
      DisplayLabel = #1058#1080#1087
      FieldName = 'SDSHORT'
      Origin = '"SYS_DIC"."SDSHORT"'
      Size = 5
    end
    object qTripsFDFIO: TIBStringField
      DisplayLabel = #1060#1048#1054' '#1074#1086#1076#1080#1090#1077#1083#1103
      FieldName = 'FDFIO'
      Origin = '"FERDRIVERS"."FDFIO"'
      Size = 255
    end
    object qTripsOFOFFICE: TIBStringField
      DisplayLabel = #1060#1080#1083#1080#1072#1083
      FieldName = 'OFOFFICE'
      Origin = '"OFFICES"."OFOFFICE"'
      Size = 40
    end
  end
  object quTrips: TIBUpdateSQL
    DeleteSQL.Strings = (
      'delete from TRIPS'
      'where'
      '  TRID = :OLD_TRID')
    Left = 512
  end
end
